﻿Public Partial Class WCtl_Master
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' Anthem.Manager.AddScriptForClientSideEval("document.getElementById('light').style.display='block';document.getElementById('fade').style.display='block'")
        Anthem.Manager.Register(Me)

        If Session("usuario") Is Nothing Then

            Session("control") = "Wctl_Login.ascx"
            Dim script As String = "  myLightWindow.activateWindow({"
            script = script & " href:   'Wfrm_Popup.aspx', "
            script = script & " title:  '" & "Titulo" & "', "
            script = script & " author:  'JQUINTANILLA', "
            script = script & " caption:  '', "
            script = script & "  left: 500,"
            script = script & "  width: 600,"
            script = script & "  height: 400,"
            script = script & "  top: 300"
            script = script & " });"

            Anthem.Manager.AddScriptForClientSideEval(script)

            Exit Sub
        End If

        

    End Sub

End Class